Ŀ
			 ᠭ ப ⥪			   

         
祭__________________________________________________________________

     ।祭  ᠭ ⥪⮢ ப,  
ᯮ짮  ணࠬ.    뢠  ப ⥪,
   ᯮ짮  ணࠬ. 
     
___________________________________________________________________

				 ""
Ŀ
    	  ࠬ   .	        ਩		   
Ĵ
 Edit_String								   
Ĵ
	  word	 TType		0    ப				   
	  word	 TposX		2   न X ப  ᪮	   
	  word	 TposY		4   न Y ப  ᪮	   
	  word	 TCondit	6   ᫮				   
	  word	 TWidth		10  ਭ ப  뢮		   
	  word	 TLen		12    ப		   
	  word	 TTblString	14   ⠡ 뫮   ப   
				    ⥪				   
	  word	 TSubrout	16   ணࠬ			   
Ĵ
TTblString								   
Ĵ
	  word	 TString1	0     ப 1		   
	  ...	 .....		...					   
	  word	 TStringN	n     ப N		   
	  word	 Nul		n+2  ᠭ			   
Ĵ
TString1...TStringN							   
Ĵ
	  blkb	 TLenBuf	0	 ப 1..N		   
	  byte	 Nul		n	 ப			   
	  even								   


ᠭ ६  ⠭______________________________________________

				 ""
⠭
Ŀ
 ࠬ࠳. .. .		   ਬ砭		   
Ĵ
 TType		TTypEStr	1	ப ⨯ ""		   
		  Nul		0	 ᠭ			   


६
Ŀ
 ࠬ࠳	. . . . 		    ਬ砭		   
Ĵ
 TposX		0...n		 	न  孥  	   
 TposY			      窠	㣫  ⮡ࠦ  	   
					।஢			   
 TWidth				ਭ   ,  ।  
					ன 㤥 뢮 ப    
 TLen			      ⠬	⢮  ᨬ 	   
 TLenBuf				   ப ⥪.	   
			      		砫쭮   .	   


塞 ⠭
Ŀ
 ࠬ࠳. .. .		   ਬ砭		   
Ĵ
 BCondit	PrWork		0	ப ⨢			   
		PrNoWork	1	ப  ⨢		   
		PrSleep		2	ப  ࠡ⠥		   



Ŀ
  ࠬ 		    ਬ砭				   
Ĵ
 TTblString	  ⠡ ᠭ 뫮   ப		   
 TString1	   ப ⥪ 1.				   
   ...									   
 TStringN	   ப ⥪ N.				   
 TSubrout	  ணࠬ,  ஬ 㤥 । ࠢ 
		  ணࠬ  砭  ப. ᫨  0,   
		 । ࠢ  㤥.				   

         
___________________________________________________________________

				 ""
Ŀ
    	  ࠬ   .	        ਩		   
Ĵ
 Print_String								   
Ĵ
	  word	 TType		0    ப				   
	  word	 TposX		2   न X ப  ᪮	   
	  word	 TposY		4   न Y ப  ᪮	   
	  word	 TColor		6    ᨬ			   
	  word	 TString-.	10   ᠭ ப ⥪		   
Ĵ
TString								   
Ĵ
	 asciz	 String1	0   ப ⥪ 1			   
	  ...	   ...	..	.. 					   
	 asciz	 StringN	n   ப ⥪ N			   
	  byte	 -Nul		n+1  ᠭ			   
	  even								   

         
ᠭ ६  ⠭______________________________________________

				 ""
⠭
Ŀ
 ࠬ࠳. .. .		   ਬ砭		   
Ĵ
 TType		TTypStr		0	ப ⨯ ""		   
 		  -Nul		-1	 ᠭ			   


६
Ŀ
 ࠬ࠳	. . . . 		    ਬ砭		   
Ĵ
 TposX		0...n	      窠	न  孥  㣫   
					 砫 ⮡ࠦ		   
 TposY					ࢮ ப ⥪ 		   
 String1	0...255	       	ப ᨬ  		   
   ...			     ᨬ	⮡ࠦ  ᪮	   
 StringN								   


塞 ⠭
Ŀ
 ࠬ࠳. .. .		   ਬ砭		   
Ĵ
 TColor	FBlack		0	 梥 ᨬ		   
		FGrey		1	 梥 ᨬ		   
		FDrGrey		2	񬭮- 梥 ᨬ	   
		FWhite		3	 梥 ᨬ		   


 ᬥ饭
Ŀ
  ࠬ 		    ਬ砭				   
Ĵ
 TString-.	  ᠭ ப ⥪				   

         
ᠭ ਬ_________________________________________________________

    ᯮ  ⢫   뢮 ⥪⮢ ଠ樨 
. ப ⨯ "" ਬ  뢮 ப ⥪,  ⨯
ப   ⥪  ᪮쪮 ப. ப ⨯ ""
ᯮ   ப ⥪  .  뢮 ப ⥪ 
ᯮ짮 ࠧ   梥. 樮஢ ⢫ 
筮  窨. 
     
樨  ᯮ짮_______________________________________________

    ப ⨯ ""  "" ন   뢮 ப ⥪
⮫쪮  ० 2   , ⮬ ४  ᯮ짮 
 . 
     
ਬ ᯮ짮_______________________________________________________

    ப ⨯ ""  ᯮ짮 ,ਬ,  
믮塞 㭪樨:
 
 ப ⨯ ""  ᯮ짮   ⢠ ,
뢮    ணࠬ   ਭ:
 
ਬ ᠭ____________________________________________________________

    ਬ ᠭ ப ⥪ ⨯ "":

EdString:
	.word	TTypEStr	; ப
	.word	20.		;न X ப  ᪮
	.word	45.		;न Y ப  ᪮
	.word	PrNoWork	;᫮
	.word	100.		;ਭ ப
	.word	8.		; ஢ ப
	.word	TTblString	; ⠡ 뫮
	.word	TSubrout	; ணࠬ
TTblString:
	.word	TString1	; ப 1
	.word	TString2	; ப 2
	.word	0.		; ᠭ
TString1:
	.asciz	/Text    /	; ப 1
TString2:
	.asciz	/Text    /	; ப 2
	.even

    ਬ ᠭ ப ⥪ ⨯ "":

PrintStr:
	.word	TTypStr		; ப
	.word	10.		;X ப  ᪮
	.word	20.		;Y ப  ᪮
	.word	FWhite		; ᨬ
	.word	TString-.	; ᠭ ப ⥪
TString:
	.asciz	/ ⨯/	;ப ⥪
	.asciz	/ "" /
	.byte	-1		; ᠭ
	.even

